﻿Imports StartFrame.Web.BR.Helpers
Imports StartFrame.Web.Handlers
Imports StartFrame.BR.Web.Helpers
Imports StartFrame.BR
Imports StartFrame.BR.Web.Utilitarios

Namespace Handlers.Mantenimiento

    Public Class Perfil
        Inherits GLPBaseHandler

        Public Overrides Sub InicializarDatos()
            MyBase.InicializarDatos()
            _Abm = Nothing
        End Sub

        Public Sub ObtenerPerfiles()
            Dim rs As New ResultSet
            _Context.Response.ContentType = "text/plain"
            rs.LoadTable(StartFrame.DA.Sql.Select(Common.Env.ConnectionString, origen:="App_perfil").Tables(0))
            _Context.Response.Write(rs.ToJsonString())
        End Sub
    End Class
End Namespace